home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 09 (1982-05)(Softdisk)(Side A).zip / Softdisk Magazette Volume 1, No. 09 (1982-05)(Softdisk)(Side A).do / ONE.LINERS.bas < prev    next >
BASIC Source File  |  1996-12-24  |  968b  |  19 lines
  1. 10  REM  ONE.LINERS
  2. 20  TEXT : HOME : SPEED= 255
  3. 30  HTAB 14: INVERSE : PRINT "ONE LINERS": NORMAL 
  4. 40  PRINT : PRINT "HOW MUCH CODE CAN YOU CRAM IN ONE LINE?"
  5. 50  PRINT : PRINT "JOEL RAE OF SHREVEPORT, LOUISIANA HAS"
  6. 60  PRINT : PRINT "GIVEN US A CHALLENGE."
  7. 80  PRINT : PRINT : PRINT "SEE IF YOU CAN BEST HIM IN TERMS OF"
  8. 90  PRINT : PRINT "ORIGINALITY AND POWER."
  9. 100  PRINT : PRINT : PRINT "REMEMBER YOUR ENTIRE PROGRAM MUST BE"
  10. 110  PRINT : PRINT "ONLY ONE STATEMENT LONG."
  11. 120  PRINT : PRINT "(NOT COUNTING REMARKS THAT IDENTIFY IT)"
  12. 130  PRINT : HTAB 13: INVERSE : PRINT "HIT SPACE BAR";: NORMAL : GET R$: PRINT  CHR$(4)
  13. 150  HOME 
  14. 160  HTAB 14: INVERSE : PRINT "ONE LINERS": NORMAL 
  15. 170  PRINT : PRINT : PRINT "SOFTY WILL PUT ALL OF YOUR ENTRIES INTO"
  16. 180  PRINT : PRINT "A MENU DRIVEN PROGRAM."
  17. 190  PRINT : PRINT : PRINT : PRINT 
  18. 200  PRINT : HTAB 13: INVERSE : PRINT "HIT SPACE BAR";: NORMAL : GET R$: PRINT  CHR$(4)
  19. 210  PRINT  CHR$(4);"RUN ONE.LINER.MENU"